home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / prolog_2.zip / PUZZLES.ZIP / PLAYTEXT.PRO < prev    next >
Text File  |  1986-07-20  |  384b  |  16 lines
  1. /* 
  2. Text substitution game.
  3. Ask: ?-alter( [you, are, a, computer], Z ).
  4.  
  5. */
  6.  
  7. alter( [], [] ).
  8. alter( [H|T], [X|Y] ) :- change( H, X ), alter( T, Y ).
  9.  
  10. change( you, i ).
  11. change( are, [am, not ] ).
  12. change( french, german ).
  13. change( do, no ).
  14. change( X, X ).
  15.  
  16.